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PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 
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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 
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PPPPPPPP ABAAAA SSSSSSSS ccccccce 000000 NN NN VV VV EEEEEEEEEE RRRRRRRR 

PPPPPPPP AAAAAA SSSSSSSS ccccccce 000000 NN NN VV VV EEEEEEEEEE RRRRRRRR 

PP PP AA AA SS cc 00 00 NN NN VV VV EE RR RR 

PP FP AA AA SS cc 00 00 NN NN VV VV EE RR RR 

PP PP AA AA SS cc 00 00 NNNN NN VV VV EE RR RR 

PP PP AA AA SS cc 00 00 NNNN NN VV VV EE RR RR 

PPPPPPPP AA AA SSSSSS cc 0c OO NN NN NN VV VV EEEEEEEE RRRRRARR 

PPPPPPPP AA AA SSSSSS cc 00 OO NN NN NN VV VV EEEEEEEE RRRRRRRR 

PP AAAAAAAAAA SS CC 00 00 NN NNNN VV VV EE RR RR 

PP AAAAAAAAAA SS CC 00 00 NN NNNN VV VW EE RR RR 

PP AS AA Ss CC 00 00 NN NN VV VV EE RR RR cece 
PP Aa AA SS CC 00 00 NN NN VW VV EE RR RR cece 
PP AA AA SSSSSSSS cccccccc 000000 NN NN VV EEEEEEEEEE RR RR eoee 
PP aa AA SSSSSSSS cccccccc 000000 NN NN VV EEEEEEEEEE RR RR cece 
LL IIIII1 SSSSSSSS 

LL II11] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III! SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 


~~e 


PASSCONVERT 
Table of contents 


(2) $6 DECLARATIONS : 

(3) 7 PASSCONVERT_L_ BU = Convert signed longword to unsigned byte 
(4) 18 PASSCONVERT_BO_L = Convert unsigned byte to signed longword 
(5) 15 PASSCONVERT_WU_L = Convert unsigned word to onynee lLongword 
(6) 192 SSCONVERT_L_C = Convert signed longword to signed longword 
(7) $5: PASSCONVERT_LO_L = Convert unsigned [ongword to signed longword 
(8) ; 1 PASSCONVERT_BOOL_L = Convert boolean to signed longword 

(9) 09 PASSROUND_F_LU = Round F_floating to unsigned longword 

(10) $37 PASSROUND_D_LU = Round D_floating to unsigned longword 

(11) 81 PASSROUND_G_LU = Round G_floating to unsigned longword 

(ig) 417 PASSROUND_H_LU = Round A ee | Be to unsigned longword 

(13) 453 PASSTRUNC_F_LU = Truncate F_floating to unsigned longword 
(14) 489 PASSTRUNC_D_LU = Truncate D_floating to unsigned longword 
(15) 525 PASSTRUNC_G_LU = TruncateG floating to unsigned Longword 
(16) 561 PAS$STRUNC_H_LU = Truncate A_floating to unsigned longword 
(17) 597 PASSCONVERT_LU_F = Convert Unsigned longword to F_floating 
(18) 637 PASSCONVERT_F_F = Convert F_floating to F_floating 

(19) 674 PASSCONVERT_H_F = Convert H_floating to F_floating : 
(20) 711 PASSCONVERT_LO_D = Convert Unsigned longword to D_floating 
(21) 750 PASSCONVERT_D_B = Convert D_floating to D_floating 

(22) 787 PASSCONVERT_H_D = Convert H_floating to D_floating ; 
(23) 824 ASSCONVERT_LU_G = Convert unsigned longword to G_floating 
(24) 863 PASSCONVERT_G_G = Convert G_floating to G_floating 
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1-001 DECLARATIONS 6-SEP-1984 11:50:12 CPASRTL.SRCIJPASCONVER.MAR; 1 (2) | 
209 4g .SBTTL DECLARATIONS 
09 48 LIBRARY MACRO CALLS: 
0900 29 : SSSDEF ; System error code definitions 
9900 3 : EXTERNAL DECLARATIONS: 
0000 54° ~DSABL GBL ; Force all external symbols to be declared 
0009 2? -EXTRN LIBSSIGNAL ; Signal non-fatal error 
0000 § 3 
44 57 ; MACROS: 
00 58 ; 
0000 59 ; NONE 
0000 60 ; 
0000 61 ; EQUATED SYMBOLS: 
0000 °¢ 3 
0000 63 ; NONE 
0000 64; 
0000 65 ; OWN STORAGE: 
0000 66 ; 
0000 67 ; NONE 
0000 68 ; 
44 $3 : PSECT DECLARATIONS: 
00000000 = 71 * .PSECT _PASSCODE PIC, USR, CON, REL, LCL, SHR, - 
ia if} EXE, RD, NOWRT, LONG 


aaa Sree es ote ee Eee eed 
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PASSCONVERT - Pasca 
1-001 PASSCONV 

4 75 
$00 

$00 
0 78 
000 79 
44 80 

000 81 
0000 86 

0000 8 

0000 84 

0000 85 
0000 6 
0000 7 
0000 88 
0000 89 
0000 90 

0000 91 
0000 3 

0000 9 

0000 94 
0000 95 
0090 96 
0000 97 
0000 98 
0000 99 
000 100 

(0000 101 
0000 102 
0000 103 
0000 104 
0000 105 
0000 106 
0000 107 
0000 = 108 
4000 0000 109 
0002 110 

QOOOOOFF 8F 04 BC D1 Q002 111 
0C 1B OOOA 16 

7E 047C 8F 3c )§=6000C 11 
00000000'GF 01 #=FB 0011 114 
50 04 B6C 9A 0018 115 
04 OO1C 116 


;++ 
; FUNCTIONAL DESCRIPTION: 
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-SBTTL PASSCONVERT_L_BU - Convert signed longword to unsigned byte 


Converts a signed longword to an unsigned byte with possible 
overflow. 


; CALLING SEQUENCE: 


Result.wbu.v = PASSCONVERT_L_BU (Long.rl.r) 


; FORMAL PARAMETERS: 


long - signed longword argument 


; IMPLICIT INPUTS: 


NONE 


; IMPLICIT OUTPUTS: 


MONE 


; ROUTINE VALUE: 


The unsigned byte value of the argument 


; SIDE EFFECTS: 


SS$_INTOVF - If argument negative or ree than 255. If continued, 
the low 8 bits are stored. 


-ENTRY PASSCONVERT_L_BU, “M<IV> ; Entry point 
CMPL Q4(AP), #255 
BLEQU 10$ 

MOVZWL #SS$_INTOVF, -(SP) 


Will value overflow? 
No 


Bete 


CALLS #1, G*LIBS$SIGNAL : Signal integer overflow 
10$: MOVZBL @4(AP), RO ; Convert 
RET : End of routine PASSCONVERT_L_BU 


16 
C _conversion veutians 16-SEP- 
= Convert unsigned byte 6-SEP- 
T_BU_ 


= -SBTTL PASSCONVER 
FUNCTIONAL DESCRIPTION: 
Converts an unsigned byte to a signed longword. 
CALLING SEQUENCE: 
Result.wl.v = PASSCONVERT_BU_L (Byte.rbu.r) 
FORMAL PARAMETERS: 
Byte - Unsigned byte argument 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The argument zero-extended to a longword 
SIDE EFFECTS: 
NONE 


~ 
, 


sale: 
1-001 
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L = Convert unsigned byte to signed longword 


zw 
“oO 
® 


tt ss Ss ss ss ss ss — ss ss 2 ss ss se ore —™ OT 


4000 
50 04 BC 9A 
04 


«ENTRY PASSCONVERT_BU_L, “M<IV> ; Entry point 


MOVZBL @4(AP), RO 3; Convert 
RET ; End ry routine PASSCONVERT_BU_L 
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1-001 PASSCONVERT -WU_L = Convert unsigned word 6-SEP Ba 19B4 11:50:12 CPASRTL.SRCIJPASCONVER.MAR; 1 a (5) 
0 : 133, -SBTTL PASSCONVERT_WU_L = Convert unsigned word to signed Longword 
4 137 : FUNCTIONAL DESCRIPTION: 
8 2 122 ; Converts an unsigned word to a signed longword. 
00 4 161 ; CALLING SEQUENCE: 
09 : 188 ; Result.wl.v = PASSCONVERT_WU_L (Word.rwu.r) 
0024 165 ; FORMAL PARAMETERS: 
b05¢ Jeo Word = Unaigned vere 
; or - Unsign r n 
bo54 eh: gned word argume 
0024 169 ; IMPLICIT INPUTS: 
0024 170; 
0024 171; NONE 
0024 106 ; 
0024 173 ; IMPLICIT OUTPUTS: 
0024 174; 
0024 175; NONE 
0024 176; 
0024 177 ; ROUTINE VALUE: 
0024 178; 
0024 179; The argument zero-extended to a longword 
0024 180; 
0024 181 ; SIDE EFFECTS: 
0024 182 ; 
0024 183; NONE 
0024 184; 
0024 185 ;-- 
0024 186 
4000 Bese + 14 ENTRY PASSCONVERT_WU_L, “M<IV> ; Entry point 
50 04 BC 3C 0026 189 MOVZWLE @4(AP), RO ; Cenvert 
04 002A 190 RET ; End of routine PASSCONVERT_WU_L 
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1-001 PASSCONVERT_L_L = Convert signed lLongwor 6-SEP-1984 0:12 CPASRTL.SRCIJPASCONVER.MAR; 1 (6) 
00 ; 136 a -SBTTi. PASSCONVERT_L_L = Convert signed longword to signed longword 
09 4 132 ; FUNCTIONAL DESCRIPTION: 
bY 4 138 3 Converts a signed longword to a signed longword. 
002B 198 ; CALLING SEQUENCE: 
002B 199 ; 
8 4 + : Result.wl.v = PASSCONVERT_L_L (Long.rl.r) 
88 : 8 3; FORMAL PARAMETERS: 
$0 B 04 ; Long - Signed longword argument 
0028 05 ; 
0028 06 ; IMPLICIT INPUTS: 
0028 07 ; 
0028 08 ; NONE 
002B 209 ; 
0028 210 ; IMPLICIT OUTPUTS: 
0028 «211 ; 
0028 sig 3 NONE 
0028 213; 
0028 sie ; ROUTINE VALUE: 
0028 3 3 
0028 216; The argument sign-extended to a longword 
0028 217 ; 
0028 218 ; SIDE EFFECTS: 
002B 219 ; 
602B 220 ; NONE 
002B 221 ; 
0028 $5¢ 7“ 
002B 22 f 
4000 baSe $s ENTRY PASSCONVERT_L_L, “M<IV> ; Entry point 
50 04 BC DO 002D 226 MOVL a4(AP), RO ; Convert 
04 0031 227 RET ; End of routine PASSCONVERT_L_L 
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1-001 PASSCONVERT_LU_L = Convert unsigned long 6-SEP-1984 11:50:12 CPASRTL.SRCIJPASCONVER.MAR; 1 (7) 
003 $0 mA -SBTTL PASSCONVERT_LU_L = Convert unsigned longword to signed lLongword 
oe $1] ; FUNCTIONAL DESCRIPTION: 
003 34 3 Converts an unsigned longword to a signed lLongword with possible 
Oe $e 3 overflow. 
00 23 
Oe 38 ; CALLING SEQUENCE: 
Oe $36 ; Result.wl.v = PASSCONVERT_LU_L (Long.rlu.r) 
$03 $79 ; FORMAL PARAMETERS: 
0035 5a2 : L Unsigned | d 

: on - Unsigned Longword argument 
003 ok H 7 : . , 
003 244 ; IMPLICIT INPUTS: 
003 245 ; 
003 246 ; NONE 
0032 247 ; 
0032 248 ; IMPLICIT OUTPUTS: 
0032 249; 
0032 $29 : NONE 
OO 3s 71S 
003 $26 ; ROUTINE VALUE: 
0032 253; 
0032 254 ; The argument zero-extended to a longword 
0032 255; 
0032 256 ; SIDE EFFECTS: 
0032 257; 
0032 258 ; SS$_INTOVF - If argument is greater than 2**31-1. If continued, 
0032 259; the argument is stored directly into the result. 
0032 260 ; 
0032 261 ;-- 
0032 $06 
4000 Oe $07 -ENTRY PASSCONVERT_LU_L, “M<IV> ; Entry point 
50 04 B6C DO 0034 265 MOVL a4(AP), RO ; Fetch argument 
OC 18 0038 266 BGEQ 10$ ; If not negative, ok 
047C BF 3C O03A 267 MOVZWL a358 INTOVF, -(SP) ; Signal integer overflow 
00000000" GF 01 FB QO3F 268 CALLS , GALIBSSIGNAL 5 
04 0046 269 108: RET ; End of routine PASSCONVERT_LU_L 
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_L = Convert boolean to 6=-SEP-1984 11:50:12 (CPASRTL.SRCIJPASCONVER.MAR; 1 (8) 
se -SBTTL PASSCONVERT_BOOL_L = Convert boolean to signed longword 
; FUNCTIONAL DESCRIPTION: 
Convert boolean to signed longword. 
CALLING SEQUENCE: 
Result.wl.v = PASSCONVERT_BOOL_L (Bool.rv.r)? 
FORMAL PARAMETERS: 
Bool = Boolean argument 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The low bit of the argument zero-extended to a longword. 
SIDE EFFECTS: 
NONE 


zw 
4o 

eo 
wo 
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-ENTRY PASSCONVERT_BOOL_L, “M<IV> ; Entry point 


MOVZBL @4(AP), RO 3; Get low byte 
BICB2 #*XFE, RO ; Convert 
: End of routine PASSCONVERT_BOOL_L 
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ie -SBTTL PASSROUND_F_LU = Round F_floating to unsigned longword 
FUNCTIONAL DESCRIPTION: 

Round an F_floating to an unsigned longword, without overflow. 
; CALLING SEQUENCE: 
; Result.wlu.v = PASSROUND_F_LU (Single.rf.r) 
; FORMAL PARAMETERS: 


PASSCONVERT 
1-601 


Single - F_floating argument 

; IMPLICIT INPUTS: 

3 NONE 

; IMPLICIT OUTPUTS: 

: NONE 

; ROUTINE VALUE: 

; The argument rounded to the nearest integer modulus 2**32. 
; SIDE EFFECTS: 

; NONE 


0000 
50 04 BC 48 
04 


.ENTRY PASSROUND_F_LU, *M<> =; IV must be disabled 


CVTRFL @4(AP), RO ; Round 
RET ; End of routine PASS$ROUND_F_LU 
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~SBTTL PASSROUND_D_LU = Round D_floating to unsigned longword 
: FUNCTIONAL DESCRIPTION: 
; Round a D_floating to an unsigned longword, without overflow. 
; CALLING SEQUENCE: 
; Result.wlu.v = PAS$ROUND_D_LU (Double.rd.r) 
; FORMAL PARAMETERS: 


~ ‘ 
zw 
} pe 


; Double = D_floating argument 

; IMPLICIT INPUTS: 

NONE 

; IMPLICIT OUTPUTS: 

NONE 

; ROUTINE VALUE: 

; The argument rounded to the nearest integer modulus 2**32. 
; SIDE EFFECTS: 

: NONE 


0000 
50 04 BC 68 
04 


-ENTRY PAS$ROUND_D_LU, “M<> ; IV must be disabled 


CVTRDL @4(AP), RO ; Round . 
RET ; End of routine PAS$ROUND_D_LU 
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-SBTTL PASSROUND_G_LU = Round G_floating to unsigned longword 


FUNCTIONAL DESCRIPTION: 


Round a G_floating to an unsigned longword, without overflow. 


; CALLING SEQUENCE: 


Result.wlu.v = PASSROUND_G_LU (Double.rg.r) 


; FORMAL PARAMETERS: 


Double = G_floating argument 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


APAAAAAOAAOOAOOEKPAPSOSOOSOOD 2 
OOOCCCCOAIOGOOCOCOOOCOCOCOCOCOO VI 
OOOOOO0O0O0O0O OW dCOCDODCD0D0D0D 
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NONE 


ROUTINE VALUE: 


The argument rounded to the nearest integer modulus 2**32. 


7 ; SIDE EFFECTS: 


NONE 
.ENTRY PASSROUND_G_LU, “M<> =; IV must be disabled 


CVTRGL @4(AP), RO ; Round 
RET ; End of routine PASSROUND_G_LU 
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ae -SBTTL PASSROUND_H_LU = Round H_floating to unsigned longword 
: FUNCTIONAL DESCRIPTION: 


z2- 
ot 


- Pasca 
PASSROU 


Round an H_ floating to an unsigned longword, without overflow. 
CALLING SEQUENCE: 
Result.wlu.v = PASSROUND_H_LU (Quad.rh.r) 


OOooooooooo 
OOOGOOCOOCoCoo 
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006 : FORMAL PARAMETERS: 
0068 3 Quad - H_floating argument 
0068 : IMPLICIT INPUTS: 
0068 : 
0068 FE NONE 
0068 : 
0068 3; IMPLICIT OUTPUTS: 
0068 : 
0068 : NONE 
0068 : 
Bees ; ROUTINE VALUE: 
sie 125 ; The argument rounded to the nearest integer modulus 2**32. 
0068 443 ; SIDE EFFECTS: 
0068 444 ; 
0068 445 ; NONE 
0068 446 ; 
0068 447 ;-- 
0000 0068 448 .ENTRY PASSROUND_H_LU, “M<> =; IV must be disabled 
50 04 BC 6BFD O06A 450 CVTRHL @4(AP), RO 3; Round 
04 OO06F 451 RET ; End of routine PASSROUND_H_LU 


fic conversion a 1 


PASSCONVERT - Pascal-speci 6-SEP=1984 01:23:05 VAX/VMS Macro V04-00 P 1 
1-001 PASSTRUNC FLU - Truncate F "floating. to 6=SEP-1984 11:50:12 CPASRTL.SRCJPASCONVER.MAR; 1 a dd) 
O07 ‘a7 ra ~-SBTTL PASSTRUNC_F_LU = Truncate F_floating to unsigned longword 
007 439 ; FUNCTIONAL DESCRIPTION: 
4 487 | : Truncate an F_floating to an unsigned longword, without overflow. 
9070 459 CALLING SEQUENCE: 
0070 tet Result.wl PASSTRUNC_F_LU (Single.rf.r) 
: esult.wlu.v = ingle.rf.r 
0070 462 it xg : 
0070 46 : FORMAL PARAMETERS: 
$670 268 : Singl F_floati t 
: ingle - oating argumen 
0070 466 : ' . eta 
0070 467 ; IMPLICIT INPUTS: 
0070 468 ; 
0070 469 : NONE 
0070 470; 
0070 471 ; IMPLICIT OUTPUTS: 
0070 472 : 
0070 473; NONE 
0070 474; 
0070 475 ; ROUTINE VALUE: 
0070 476 : 
oo58 rie ; The argument truncated to the nearest integer modulus 2**32. 
0070 479 : SIDE EFFECTS: 
0070 480 : 
0070 481; NONE 
0070 482 ; 
0070 483 ;-- 
0000 8059 ref ENTRY PASS$TRUNC_F_LU, “M<> ; IV must be disabled 
50 04 BC 4A 0072 486 CVTFL @4(AP), RO 3; Truncate 
04 0076 487 RET ; End of rout tas PASSTRUNC_F_LU 


M 16 
specific conversion routines 16- 


ROUTINE VALUE: 

The argument truncated to the nearest integer modulus 2**32. 
SIDE EFFECTS: 

NONE 


0000 
50 0=— 04 BC - 0079 
4 0070 


-ENTRY PASSTRUNC_D_LU, “M<> ; IV must be disabled 


CVTDL @4(AP), RO : Truncate | 
RET ; End of routine PAS$TRUNC_D_LU 
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1-001 PASSTRUNC_D_LU = Truncate D_floating to 6=SEP=1984 11:50:12 CPASRTL.SRCIJPASCONVE).MAR; 1 (14) 
a -SBTTL PASSTRUNC_D_LU = Truncate D_floating to unsigned loncword 
0077 : FUNCTIONAL DESCRIPTION: 
pp ee : Truncate a D_floating to an unsigned longword, without overflow. 
9077 : CALLING SEQUENCE: 
0077 : Result.wlu.v = PASSTRUNC_D_LU (Double.rd.r) 
0077 > FORMAL PARAMETERS: 
ia : Double = D_floating argument 
di : IMPLICIT INPUTS: 
oe ; NONE 
Mi > IMPLICIT OUTPUTS: 
77 : NONE 
77 : 
77 3 
77 : 
77 : 
77 : 
77 : 
77 3 
77 : 
77 : 
77 3 
79 
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1-001 GLU = TruncateS_floating to u 6-SEP-1984 11:50:12 CPASRTL.SRCIPASCONVER.MAR; 1 (15) | 
«SBTTL PASSTRUNC_G_LU = TruncateG_floating to unsigned Longword 


+e 
FUNCTIONAL DESCRIPTION: 


Pp 
PAS$T 


Morrone 


Truncate a G_floating to an unsigned longword, without overflow. 
CALLING SEQUENCE : | 

Result.wlu.v = PASS$TRUNC_G_LU (Double.rg.r) | 
FORMAL PARAMETERS: 

Double =- G_floating argument 
IMPLICIT INPUTS: | 

NONE | 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: | 

The argument truncated to the nearest integer modulus 2**32. | 
SIDE EFFECTS: 
NONE 
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0000 
50 04 BC 4AFD 
04 


«ENTRY PASS$TRUNC_G_LU, “M<> ; IV must be disabled 


CVTGL @4(AP), RO ; Truncate |. 
RET ; End of routine PAS$TRUNC_G_LU 
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1 
ific conversion a, 
- Truncate H floating to 


se ~SBTTL PASSTRU 
; FUNCTIONAL DESCRIPTIO 
Truncate an H_f 
CALLING SEQUENCE: 
Result.wlu.v = 
FORMAL PARAMETERS: 
Quad - H_flo 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The argument tr 
SIDE EFFECTS: 
NONE 


wv 
a | 
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0000 
04 BC 6AFD 
04 


ENTRY PAS$TRU 
CVTHL @4(AP), 
RET 
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16-SEP=1 138% 91: ¢3:93 AX/VMS Macro V04-00 

66-SEP-1984 PASRTL.SRCJPASCONVER.MAR; 1 
NC_H_LU = Truncate H_floating to unsigned longword 
N: 


loating to an unsigned longword, without overflow. 


PASSTRUNC_H_LU (Quad.rh.r) 


ating argument 


uncated to the nearest integer modulus 2**32. 


NC_H_LU, “M<> : 
RO ‘ 


IV must be disabled 


Trunca 
; End of yp Sore PASSTRUNC_H_LU 
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PASSCONVERT_LU_F = Convert unsigned long 6-SEP=-1984 11:50:12 L[CPASRTL.SRCJPASCONVER.MAR; 1 

8 ; $98 a -SBTTL PASSCONVERT_LU_F = Convert unsigned longword to F_floating 
8 E 535 ; FUNCTIONAL DESCRIPTION: 
4 ? 13% Converts an unsigned longword to an F_floating, rounded. 
; e ; CALLING SEQUENCE: 
OBE 605 ; Result.wf.v = PASSCONVERT_LU_F (Long.rlu.r) 

QOO8E 606 ; 

OO8E 607 ; FORMAL PARAMETERS: 

+3 ons ; ; 
O8E 609 ; Long - Unsigned longword argument 

QOOBE 610 ; 

OO8E 611 ; IMPLICIT INPUTS: 

OO8E o1¢ : 

QOO8E 613; NONE 

QOO8E 614 ; 

QOO8E 615 ; IMPLICIT OUTPUTS: 

OO8E 616 ; 

OO8E 617 ; NONE 

OO8E 618 ; 

QO8E 619 ; ROUTINE VALUE: 

OO8E 620 ; 

st es! : The argument rounded to the nearest F_floating value. 

OO8E $55 3; SIDE EFFECTS: 

OO8E ose ; 

OO8E 625 ; NONE 

OO8E 626 ; 

OO8E 627 ;-- 

OO8E 628 ; 

4000 48:43 663 «ENTRY PASSCONVERT_LU_F, “M<IV> ; Entry point 
50 04 8C 6E€ 0090 631 CVTLD @4(AP), RO ; Convert to D_ floating 
8 0094 632 BGEQ ; If not negative, don’t compensate 
00000000 00005080 8F 60 0096 633 ADDD2 #*x5080, RO 3 Add 2**32 : 
50 50 76 QOAi 634 108: CVTDF RO, RO ; Round to F {tous tng 
4 O00A4 635 RET : End of routine PASSCONVERT_LU_F 
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1-601 PASSCONVERI FF © Convert Fofloating to G-SEP<19B6 11:30:12 EPASRTL.SAEIPASCONVER.MAR: 1 29° 
| Wy: o38 Mi -SBTTL PASSCONVERT_F_F = Convert F_floating to F_floating 
| Ons 63s : FUNCTIONAL DESCRIPTION: 
| OA) 641 : Converts an F_floating to an F_floating. 
OA3 ei$ : CALLING SEQUENCE: 
| 0A: 645 : Result.wf.v = PASSCONVERT_F_F (Single.rf.r) 

O0A3 gt? : FORMAL PARAMETERS: 
GOKs es ; Single - F_floating argument 

OOAS 651 ; IMPLICIT INPUTS: 

Q0A5 626 3 

a i: we 

J0A5 655 : IMPLICIT OUTPUTS: 

OOAS§ 656 ; 

boat ese 7 

O0Ad 659 + ROUTINE VALUE: 

BpAe o8) : The argument converted to F_floating 

O0Ad ees : SIDE EFFECTS: 

00A5 6665 : SS$_ROPRAND - if the argument is a reserved operand 

O0OA5S 666 ; 

ts 

4000 BRAS 06) -ENTRY PASSCONVERT_F_F, “M<IV> ; Entry point 
50 04 BC 50 OOA7 671 MOVF a4(AP), RO 3; Convert 
04 OOAB 672 RET ; End of routine PASSCONVERT_F_F 
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| PASSCONVERT - Pascal-specific ¢ SEP=1984 01:23:05 VAX/VMS Macro V04-00 Page 19 | 
1-001 PASSCONVERT HF = Convert H floating to aes yi 94:90:93 PASRTL.SRCJPASCONVER.MAR; 1 ys (19) 
Onc 67% = ~SBTTL PASSCONVERT_H_F = Convert H_floating to F_floating 
OAC 0/8 ; FUNCTIONAL DESCRIPTION: 
Oat 7B C H_floati F_floati 
3 onverts an H_floating to an F_floating. 
OOAC 679; . : 
Raat 680 ; CALLING SEQUENCE: 
OAC 681 ; 
Boat a : Result.wf.v = PASSCONVERT_H_F (Quad.rh.r) | 
QOOAC 684 ; FORMAL PARAMETERS: 
beac re ; 
OAC 686 ; Quad - H_ floating argument 
OOAC 687 ; 
OOAC 688 ; IMPLICIT INPUTS: 
QOOAC 689 ; 
OOAC 690 ; NONE 
OOAC 691 ; 
OOAC O36 3; IMPLICIT OUTPUTS: 
QOOAC 693 ; 
QOOAC 694 ; NONE 
QOAC 695 ; 
QOAC 696 ; ROUTINE VALUE: 
GOAC 697 ; 
OOAC 698 ; The argument converted to F_floating 
OAC 699 ; 
OAC 700 ; SIDE EFFECTS: 
OOAC 701 ; . . 
OOAC 702 ; SS$_ROPRAND - if the argument is a reserved operand 
OOAC 703 ; 
OOAC 704 ;-- 
OOAC 705 
4000 OOAC 706 
OAE 707 
50 04 BC F6FD QOAE 708 CVTHF  @4(AP), RO : Convert 
04 0083 709 RET : ; End of routine PASSCONVERT_H_F 


ENTRY PASSCONVERT_H_F, “M<IV> ; Entry point 
| 
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CVTLD @4(AP), RO ; Convert to D floating 
BGEQ 10$ ; it 1 gt.0 negative, don*t compensate 
ADDD2 #*x5080, RO : 

10$: RET 3 End of pedis PASSCONVERT_LU_D 
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~SBTTL PASSCONVERT_LU_D = Convert unsigned longword to D_floating 


¥ FUNCTIONAL DESCRIPTION: 


Converts an unsigned longword to a D_floating. 
CALLING SEQUENCE: 

Result.wd.v = PASSCONVERT_LU_D (Long.rlu.r) 
FORMAL PARAMETERS: 

Long - Unsigned longword argument 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The argument converted to a D_floating value. 
SIDE EFFECTS: 

NONE 


-ENTRY PASSCONVERT_LU_D, “M<IV> ; Entry point 
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payor Convert Defloating to 6-SEP=1984 11:30:12 EPASKTL.SRETPASCONVER.MAR;1 “29° iy 
Re ~SBTTL PASSCONVERT_D_D = Convert D_floating to D_floating 
FUNCTIONAL DESCRIPTION: 

Converts an D_floating to a D_floating. 
CALLING SEQUENCE: 

Result.wd.v = PASSCONVERT_D_D (Double.rd.r) 


FORMAL PARAMETERS: 


zw 

so 
® 
ae 

no 


Sadaed 
ow 
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SQ QQQQQLqQVeq_QwQ_ Nr 


vi 
Bad 


Double = D_floating argument | 
IMPLICIT INPUTS: | 
NONE | 
IMPLICIT OUTPUTS: 
et | 
ROUTINE VALUE: 
The argument converted to D_floating 
SIDE EFFECTS: | 
SS$_ROPRAND - if the argument is a reserved operand 
| 
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~-ENTRY PASSCONVERT_D_D, “M<IV> ; Entry point 


MOVD a4(AP), RO 3; Convert 
RET 3; End ~y routine PAS$SCONVERT_D_D 
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PASSCONVERT. A.D = Convert H_floating to 6-SEP-1 1986 9 93; %3 PASRTL.SRCIJPASCONVER.MAR; 1 _ a) 
cr q 7 nes -SBTTL PASSCONVERT_H_D = Convert H_floating to D_floating 
Oct f 5 : FUNCTIONAL DESCRIPTION: 
4} 64! Converts an H_floating to a D_floating. 
OCF 498 ; CALLING SEQUENCE: 
ith 794 ; 
+H £3? : Result.wd.v = PASSCONVERT_H_D (Quad.rh.r) 
Goer 19% : FORMAL PARAMETERS: 
aoe 139 : Quad = H_floating argument 
OOCF 801 : IMPLICIT INPUTS: 
OOCF it) 3 
ce Bi wm 
OOCF 805 : IMPLICIT OUTPUTS: 
OOCF 806; 
a en 
OOCE 809 : ROUTINE VALUE: 
Bore He : The argument converted to D_floating 
OOct HE : SIDE EFFECTS: 
OOCF 815: SS$_ROPRAND - if the argument is a reserved operand 
OOCF 816; 
oor BIB 
4000 Baer £32 «ENTRY PASSCONVERT_H_D, “M<IV> ; Entry point 
50 04 BC F7FD 00D1 821 CVTHD a@4(AP), RO ; Convert 
04 0006 822 RET 3 End oy routine PAS$SCONVERT_H_D 
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-SBTTL PASSCONVERT_LU_G = Convert unsigned longword to G_floating 


FUNCTIONAL DESCRIPTION: 


Converts an unsigned longword to a G_floating. 


; CALLING SEQUENCE: 


Result.wg.v = PASSCONVERT_LU_G (Long.rlu.r) 
FORMAL PARAMETERS: 

Long - Unsigned longword argument 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The argument converted to a G_floating value. 
SIDE EFFECTS: 

NONE 


«ENTRY PASSCONVERT_LU_G, “M<IV> ; Entry point 


CVILG @4(AP), RO 
BGE 


L ; Convert to G floating 
ADDG2 #*xX4210, RO 
RET 


: If not negative, don’t compensate 
: Add 2*#32 


; End of routine PASSCONVERT_LU_G 
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A801 PASSCONVERT.6.G = 
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ED 64 
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K 1 
conversion routines 6-SEP-1 
Convert G_floating to "Org EP=1 


-SBTTL PASSCONVERT_G_G = 
FUNCTIONAL DESCRIPTION: 
Converts a G_floating to a G_floating. 
CALLING SEQUENCE: 
Result.wg.v = PASSCONVERT_G_G (Double.rg.r) 
FORMAL PARAMETERS: 
Double = G_floating argument 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The argument converted to G_floating 
SIDE EFFECTS: 
SS$_ROPRAND - if the argument is a reserved operand 


1386 91: ¢3: 93 AX/VMS Macro V04-00 


Convert G_floating to G_floating 


-ENTRY PASSCONVERT_G_G, “M<IV> ; Entry point 


MOVG @4(AP), RO : Convert 
RET 3; End 's routine PASSCONVERT_G_G 


PASRTL.SRCJPASCONVER.MAR; 1 
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-SBTTL PASSCONVERT_H_G = Convert H_floating to G_floating 
FUNCTIONAL DESCRIPTION: 


ic 


mw 
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vo 
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| 

| 

Conver*s an H_floating to a G_floating. 
CALLING SEQUENCE: | 
Result.wg.v = PASSCONVERT_H_G (Quad.rh.r) 
| 


FORMAL PARAMETERS: 
Quad - H_ floating argument 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 


The argument converted to G_floating 

SIDE EFFECTS: 

SSS_ROPRAND - if the argument is a reserved operand 
| 
| 


-ENTRY PASSCONVERT_H_G, “M<IV> ; Entry point 


CVTHG @4(AP), RO Convert 
RET End - routine PASSCONVERT_H_G 
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380i PASSCONVERT. L_H = Convert signed longwor orSEpe 1984 94:90:93 EPASRIL. SRCIPASCONVER MAR: 1 (38) 
| th $38 X -SBTTL PASSCONVERT_L_H = Convert signed longword to H_floating 
orp 44 ; FUNCTIONAL DESCRIPTION: 
| ore 8¢) 3 Converts a signed longword to an H_floating. 
OFD 368 ; CALLING SEQUENCE: 
OFD 944 ; 
4 +H $ CALL PASSCONVERT_L_H (Result.wh.r, Long.rl.r) 

OOFD 947 ; FORMAL PARAMETERS: 

Beep 308 : 

FD §=949 ; Result = H_ floating result 

Beep 320 ; Long - Signed longword argument 

OOFD a26 ; IMPLICIT INPUTS: 

OOFD 953; 

OOFD 954 ; NONE 

OOFD 955 ; 

OOFD 956 ; IMPLICIT OUTPUTS: 

OOFD 957 ; 

OOFD 958 ; NONE 

OOFD 959 ; 

OOFD 960 ; ROUTINE VALUE: 

OOFD 961 ; 

OOFD 308 3 NONE 

OOFD 963 ; 

OOFD 964 ; SIDE EFFECTS: 

OOFD 965 ; 

OOFD 966 ; NONE 

OOFD 967 ; 

OOFD 968 ;-- 

OOFD 969 

apee an ENTRY PASSCONVERT_L_H, “M<IV> ; Entry point 

OOF F arg CVTLH 9 @8(AP), a4(AP) ; Convert : 

0105 97 RET ; End of routine PASSCONVERT_L_H 
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scal-s AX/VMS Macro V04-00 
PASS SCON VERT_LU_H = Convert unsigned long PASRTL.SRCJPASCONVER.MAR; 1 

} § 5 a -SBTTL PASSCONVERT_LU_H = Convert unsigned longword to H_floating 
6 gir i ; FUNCTIONAL DESCRIPTION: 
‘ $75 ; Converts an unsigned longword to an H_floating. 
6 3 1 ; CALLING SEQUENCE: 
: ° 3 ; CALL PASSCONVERT_LU_H (Result.wh.t, Long.rlu.r) 

0106 985 : FORMAL PARAMETERS: 

3198 9 § ; 
106 987; Result -H af toating result 

0106 +t} 3 Long - Unsigned longword argument 
106 990 : IMPLICIT INPUTS: 

0106 991; 

0106 838 5 NONE 

0106 993; 

0106 994 ; IMPLICIT OUTPUTS: 

0106 995; 

0106 996; NONE 

0106 997; 

0106 998 ; ROUTINE VALUE: 

0106 999; 

0106 1000 ; NONE 

0106 1001 ; 

0106 1398 ; SIDE EFFECTS: 

0106 1003 ; 

0106 1004 ; NONE 

0106 1005 ; 

0106 1006 ;-- 

0106 1007 

4000 $198 1908 ENTRY PASSCONVERT_LU_H, “M<IV> ; Entry point 
6EFD 0108 1010 CVTLH @8(AP), @4(AP) 3; Convert to H floating 
18 O10E 1011 BGEQ 10$ ; If not negative, don’t compensate 

Bti3 1012 ADDH2 #*X4021, @4(AP) 3 Add 2**32 

O11F 

0125 1013 10$: RET ; End of routine PAS$SCONVERT_LU_H 


PAS' 


2 
onversion cont tees 1 1-0 


Convert F_floating to é- : 

. -SBTTL PASSCONVERT_F 

FUNCTIONAL DESCRIPTION: 
Converts an F_floating to an H_floating. 

CALLING SEQUENCE: | 
CALL PASSCONVERT_F_H (Result.wh.r, Single.rf.r) | | 

FORMAL PARAMETERS: | 


Result - Hf toast ing result 
Single =- F_floating argument 


IMPLICIT INPUTS: 
NONE | 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
SS$_ROPRAND - if the argument is a reserved operand 
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Convert F_floating to H_floating 
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4000 
04 BC 08 BC 98FD 
04 


.ENTRY PASSCONVERT_F_H, “M<IV> ; Entry point 


CVTFH @8C(AP), a4(AP) 3; Convert 
RET 3; End > routine PASSCONVERT_F_H 
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1-001 PASSCONVERT_D_H = Convert D_floating to 6=SEP=1 UPASRIL. SRCJPASCONVER.MAR; 1 (29) | 1-0 
WE 1055 .SBTTL PASSCONVERT_D_H = Convert D_floating to H_floating 
gt 35 ; FUNCTIONAL DESCRIPTION: 
! : } 3? ; Converts a D_floating to an H_floating. 
Wer 39 ; CALLING SEQUENCE: 
01 F 61 : CALL PASSCONVERT_D_H (Result.wh.r, Double.rd.r) 
a i i : FORMAL PARAMETERS: 
61 F 1065 ; Result = H floating result 
Ol2F 1066 ; Double = D_floating argument 
Q12F 1067 ; | 
012F 1068 ; IMPLICIT INPUTS: 
O12F 1069 ; 
O12F 1070 ; NONE 
O12F 1071 ; 
012F I9%6 3 IMPLICIT OUTPUTS: 
O12F 1073 ; 
O12F 1074 ; NONE 
O12F 1075 ; 
O12F 1076 ; ROUTINE VALUE: 
Q12F 1077 ; 
O12F 1078 ; NONE 
O12F 1079 ; | 
QO12F 1080 ; SIDE EFFECTS: 
O12F 1081 ; 
012F 186 ; SS$_ROPRAND - if the argument is a reserved operand 
O12F 1083 ; 
012F 1084 ;-- 
O12F 1085 | 
4000 O18) ies -ENTRY PASSCONVERT_D_H, “M<IV> ; Entry point | 
| 
04 BC 08 BC 32FD 0131 1088 CVTIDH a@8C(AP), a4(AP) 3; Convert 
04 0137 1089 RET : End of routine PASSCONVERT_D_H 
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C 
Convert G_floating to PASRTL.SRCJPASCONVER.MAR; 1 0). 
ar ~SBTTL PASSCONVERT_G_H = Convert G_floating to H_floating 

; FUNCTIONAL DESCRIPTION: 


me 
Dw 
oO 

® 


<n 
tt SS Ss SS Ss Ss Ss SS Ss Ss ess 5 


; Converts a G_floating to an H_floating. 

; CALLING SEQUENCE: 

; CALL PASSCONVERT_G_H (Result.wh.r, Double.rg.r) 
; FORMAL PARAMETERS: 


Result =- H floating result 
Double = G_floating argument 


IMPLICIT INPUTS: 
; NONE 

; IMPLICIT OUTPUTS: 
; NONE 
: ROUTINE VALUE: 
ee 

; SIDE EFFECTS: 


SS$_ROPRAND - if the argument is a reserved operand 

4000 

08 BC 56FD 
04 


.ENTRY PASSCONVERT_G_H, “M<IV> ; Entry point 


| 

| 

| 

} 

04 BC CVTGH @8(AP), a4(AP) Convert 
| 

| 

| 


pe eee ww lola la lola lolololealeleleleloleleleleleleleleleleleolelelololol owe ola) 
Od od od 
SF NAWAAWNNAAAWAANANNAAANAAANAAAAAAANAAI 
© } \ COCO 000000 60 09 C9 0D 0D 09 00 GD OD C0 CD C9 CD 0D 0D 0D 0D G9 0D 00 C9 CD CD CD CD CD OD CD CD 


7 RET End of routine PAS$SCONVERT_G_H 
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a - Pescelcepect ttc ponvere tae rout teak 16-SEP-1984 01593208 AX/VMS Macro V04-00 Page 3] 
1-001 PASSCONVERT_H_H = Convert H_floating to 6=-SEP-1984 11:50:12 CPASRTL.SRCJ PASCONVER.MAR: 1 (31). 

O14 1} es ~SBTTL PASSCONVERT_H_H = Convert H_floating to H_floating 
Bie) 1} 1 3 “FUNCTIONAL DESCRIPTION: 

131 1 ; Converts an H_floating to an H_floating. 

11 1} 2 ; CALLING SEQUENCE: 
O14] i f ; CALL PASSCONVERT_H_H (Result.wh.r, Quad.rh.r) 
0141 11359 ; FORMAL PARAMETERS: 
0141 1140 ; 
0141 1141 ; Result floating result 
0141 1336 j Quad H_-floating argument 
0141 1143 ; 
0141 1144 ; IMPLICIT INPUTS: 
0141 1145 ; 
0141 1348 : NONE 
0141 1147 ; 
0141 1148 ; IMPLICIT OUTPUTS: 
0141 1149 ; 
0141 1150 ; NONE 
0141 1151 ; 
0141 1126 3 ROUTINE VALUE: 
0141 1153 ; 
0141 1154 ; NONE 
0141 1155 ; 
0141 1156 ; SIDE EFFECTS: 
0141 1157 ; . 
0141 1158 ; SS$_ROPRAND - if the argument is a reserved operand 
0141 1159 ; 
0141 1160 ;-- 
0141 1161 : 

4000 bias 1166 ENTRY PASSCONVERT_H_H, “M<IV> ; Entry point 
04 BC 08 BC 70FD 0143 1164 MOVH @B(AP), a4(AP) ; Convert 
04 Bier 1162 RET ; End of routine PASSCONVERT_H_H 

014A 1167 -END ; End of module PASS$SCONVERT 
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LIBSSIGNAL 


Sw SOS a. 


' 
crrta7e 
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PASSTRUNC_H_LU 
SS$_INTOVF 


$aBs$ 
PASSCODE 0000014A 
Phase Page faults 


Initialization 10 


Command processing 72 
Pass 200 
Symbol table sort 0 
Pass 2 190 
Symbol table output 5 
Psect synopsis output 3 
Cross-reference output 


Assembler run totals 481 
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Psect synopsis H 


PSECT name Allocation 
00000000 
00000000 


ee 


NORD NOWRT NOVEC BYT 
RD WRT NOVEC BYT 
RD NOWRT NOVEC LONG 
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feox - Pascal-specific conversion rmutiont 
VAX-11 Macro Run Statistics 


S-SEp=-198¢ 11:80:12 EPASHTL. SRESPASCONVER. MAR; 1 


The working set Limit was 1200 pages. 

30776 bytes_(61 pages) of virtual memory were used to buffer phe intermediate code. 

There were 30 pages of symbol table space he to hold 457 non-local and 6 local symbols. 
1167 source Lines were read in Pass 1, producing object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


CET Owe mse m ew me remo e emma ee + 


ewer eee ee eee eee ee me ewe mw eee} 


Macro Library name 


-$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 

469 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ON/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:PASCONVER/OBJ=OBJ$:PASCONVER MSRC$:PASCONVER/UPDATE=(ENHS$:PASCONVER) 
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